home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 1 #1
/
utv1n1s1.d64
/
shopping lister
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
9KB
|
247 lines
1 rem *** (c)1986 scott calamar
2 rem *** published by softdisk publishing, inc.
4 uptime=(8*4096)+4: dim pr$(40)
5 printchr$(14)chr$(8):poke53280,11:poke53281,15
6 print"[147]"spc(11)"[129][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
10 printspc(11)"[151] [211]hopping [204]ister [146][149]"
11 printspc(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
13 printspc(8)"(c)1986 by [211]cott [195]alamar"
14 print" [208]ublished by [211]oftdisk [208]ublishing, [201]nc.":gosub20000
15 printspc(10)"[201]t's shopping time!":printspc(15)"[129](ho-hum)":gosub20000
20 print"[211]imply by pressing [129]y[146] or [129]n[146] after each"
22 print"item on the screen, you can quickly"
25 print"print out your shopping list"
28 gosub20000
30 printspc(8)"[144][212]urn on your [195][194][205] printer":printspc(18)"and"
32 printspc(9)"[154][200]it any key[146] when ready"
34 getk$:ifk$=""then34
36 ifk$=" "then40
40 close4:open4,4
42 print#4,chr$(16)"24"chr$(17)chr$(14)"[211]hopping [204]ist"chr$(15)chr$(13)chr$(13)
50 gosub600
100 readd$:ifd$="end"then400
105 printspc(18-int(len(d$)/2))" "d$"? ":gosub610
150 geta$:ifa$=""then 150
152 ifa$="y"then200
153 ifa$="[133]"then400
154 ifa$="n"then50
155 ifa$<>"y"anda$<>"n"anda$<>"[133]"then150
200 gosub600
205 reade$:ife$="end"then370
210 printspc(18-int(len(e$)/2))" "e$"? ":gosub610
230 getb$:ifb$=""then230
235 ifb$="y"then300
240 ifb$="n"then200
245 ifb$="[133]"then370
250 ifb$<>"y"andb$<>"n"andb$<>"[133]"then230
300 gosub600
305 readf$:iff$="end"then380
310 printspc(18-int(len(f$)/2))" "f$"? ":gosub610
330 getc$:ifc$=""then330
335 ifc$="y"then350
340 ifc$="n"then300
345 ifc$="[133]"then380
348 ifc$<>"y"andc$<>"n"andc$<>"[133]"then330
350 printspc(11)"[145][145] [217]ou've selected: [146] ":printspc(15)"[144]1- "d$
351 printspc(15)"[144]2- "e$:printspc(15)"[144]3- "f$:printspc(12)"[195]orrect (y or n)"
352 getm$:ifm$=""then352
353 ifm$="y"then360
354 ifm$="n"thenprintspc(11)"[145][149][215]hich is incorrect?"
355 getn$:n=val(n$):ifn$=""then355
356 ifn<>1thenifn<>2thenifn<>3then352
357 ifn=1thend1$=d$:gosub365:print#4,chr$(17)e$chr$(16)"30"f$:goto50
358 ifn=2thend1$=e$:gosub365:print#4,chr$(17)d$chr$(16)"30"f$:goto50
359 ifn=3thend1$=f$:gosub365:print#4,chr$(17)d$chr$(16)"30"e$:goto50
360 print#4,chr$(17)d$chr$(16)"30"e$chr$(16)"60"f$:goto50
365 printspc(20-int((len(d1$)+12)/2))""d1$"[144] was deleted":return
370 print#4,chr$(17)d$:goto400
380 print#4,chr$(17)d$chr$(16)"30"e$:goto400
400 print"[147][144][196]o you need anything not listed?":printspc(15)"< y or n >"
405 getg$:ifg$=""then405
410 ifg$="n"then430
415 ifg$="y"thenprintspc(4)" [212]ype in what you need "
416 printspc(4)" <[195][210]> exits after last entry "
420 gosub 2000: rem *** get items ***
422 for x=1tox1
424 print#4,chr$(17)pr$(x)
426 next
430 print"[147]"spc(9)" [215]ould you like to "
432 printspc(9)" list your dinners? "
433 printspc(15)"[144]< y / n >"
434 getm$:ifm$=""then434
435 ifm$="n"then462
436 ifm$="y"then440
438 ifm$<>"y"andm$<>"n"then460
440 print#4,chr$(17)chr$(14)chr$(13)"[196]inners:"chr$(15)
441 printspc(14)" [200]ow many? "
442 get n$: if n$="" then 442
443 if val(n$)=0 then462
444 forl=1toval(n$):print"[147]"spc(11)"[144] [212]ype in dinner:[160]"
445 gosub 4000: rem *** get dinner ***
446 if o$="" then l=val(n$): goto 461
447 print#4,chr$(17)l"- "o$:printspc(9)"[129] [211]pecial ingredients? "
448 printspc(16)"(y[144][146] or [129]n[144][146])"
449 getq$:ifq$=""then449
450 ifq$<>"y"then461
451 print"[147]"spc(9)" [144] [211]pecial [201]ngredients "
452 print spc(20-int((len(o$)+17)/2))" [144] for a "o$" dinner [144]"
453 gosub 5000: rem *** get ingredients ***
458 printspc(6)"[146][129] [205]ore ingredients? < y / n >"
459 get t$: if (t$<>"n") and (t$<>"y") then 459
460 if t$="y" then print"": z=17: gosub 2300: print"[144]": goto 453
461 nextl
462 print"[147]"spc(11)"[144] [198]orget anything? "
463 printspc(10)"[208]ressing [144]r[146] will take"
464 printspc(10)"you back to the list"
466 printspc(11)"[144][193]ny other key will"
467 printspc(11)" end the program [146]"
468 getl$:ifl$=""then468
470 ifl$="r"thenrestore:goto50
475 ifl$=<>"f"then500
500 printspc(12)"[217]our list is now"
502 printspc(14)"[156] complete. ":gosub20000
505 printspc(10)"[156][194]e sure not to shop"
507 printspc(10)"on an empty stomach.":gosub20000
510 printspc(8)"[154] [200]ave fun at the market [146]":gosub20000
550 print#4,chr$(12): print#4: close4: poke 186,8: sys uptime
600 print"[147][144][196]o you need:":return
610 printspc(15)"[144]< y / n >"
615 printspc(10)" [208]ress [198]1 to exit ":return
997 :
998 rem *** grocery items ***
999 :
1000 dataapples,oranges,peaches,plums,pears,melon,pineapple,bananas,lemon,lime
1005 datagrapes,grapefruit,tangerines,raisins,avocado,cherries
1010 datastrawberries,blueberries,cranberries,raspberries
1020 datafresh beans,fresh peas,carrots,celery,cucumbers,lettuce,tomatoes
1022 datamushrooms, potatoes,green pepper,red pepper,sprouts,fresh corn
1024 dataonion,garlic,ginger,scallion,parsley,canned fruit
1026 datacanned string beans,canned wax beans,canned peas,canned carrots
1027 datacanned beets,mixed vegetables,canned corn,canned lima beans
1030 databaked beans,chili beans, sauerkraut,asparagus
1035 datastewed tomatoes,frozen peas, frozen beans,frozen corn
1042 databread,bagels,pie crust,english muffins,bread crumbs,dinner rolls
1043 datahamburger rolls,hot dog rolls
1045 datachocolate bars,chocolate syrup,nestle's quik,chocolate chips
1048 datasugar,brown sugar,sugar substitute
1050 dataflour,baking powder,baking soda,cake mix,vanilla,cookie mix,frosting
1052 datacake,pie,cookies,candy,breakfast cereal,hot cereal
1055 datapancakes,syrup,waffles,ice cream,whipped cream
1060 dataketchup,mayonnaise,mustard,bbq sauce,tartar sauce,salad dressing
1061 datapickles,relish
1065 dataeggs,butter,margarine,shortening,vegetable oil,olive oil
1070 datamilk,soda,iced tea,punch,lemonade,apple juice,orange juice,fruit juice
1075 datatomato juice,lemon juice,vegetable juice,cocktail mix
1078 datacoffee,cream,tea,hot cocoa,popcorn,potato chips,corn chips,dip,crackers
1080 datafrench fries,mashed potato mix,rice,onion rings,noodles,spaghetti,lasagna
1085 datapeanuts,walnuts,almonds,pecans,cashews,coconut,chestnuts
1090 datacream cheese,sour cream,cottage cheese,cheddar cheese,velveeta
1095 datajack cheese,mozzerella cheese,ricotta cheese,parmesan cheese
1100 dataamerican cheese,swiss cheese,canned tomatoes
1105 datatomato sauce,tomato paste,pizza sauce,pizza dough,pizza topping
1110 datapeanut butter,jelly,jam,marshmallows,dessert topping,pudding,jello
1115 dataapple sauce,cranberry sauce,pie filling
1120 databacon,ham,sausage,pepperoni,hot dogs,knockwurst
1121 datasoup,beef bouillon,chicken bouillon,tuna fish,canned lunch meat
1122 datasalami,bologna,corned beef,turkey roll,chicken roll,pastrami
1125 datasteak,hamburger,beef ribs,rib roast,pot roast,stew meat,oriental beef
1130 dataoriental pork,pork chops,pork roast,pork ribs,pork steak
1132 datalamb chops,lamb steak
1135 datafrying chicken,roasting chicken, baking chicken, chicken breasts
1137 datachicken legs, chicken thighs,oriental chicken,chicken liver
1140 dataturkey slices,turkey breast,turkey roast,stuffing
1142 dataveal,clams,shrimp,scallops,frozen seafood,lox,fish sticks
1143 datalobster,trout,salmon,swordfish,bass,fish filets,squid,butterfish
1145 dataturkey gravy, chicken gravy,beef gravy,mushroom gravy
1150 datacorn tortillas,flour tortillas,taco shells,chili powder,chiles
1155 datataco sauce,enchilada sauce,picante sauce,refried beans
1160 datasoy sauce,bean sprouts,oriental vegetables,oyster sauce,sesame oil
1165 datawater chestnuts,hot mustard,chow mein noodles,snow peas,bean sauce
1168 dataaluminum foil,plastic wrap,plastic bags,lge. trash bags,sm. trash bags
1170 datacharcoal,matches,paper plates,paper cups,plastic plates,ice
1175 dataplastic forks,plastic knives,plastic spoons, anise,allspice
1180 databasil,bay leaves,cl